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He INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITH 
SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL 

CORPORATION. 

DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS 

SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. 
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Test ram for DR11-W driver 
LINK oD test 


Requires XADRIVER to be in LINK mode via SET CHARACTERISTICS function 
Requires two DR-11W's to be used, one for transmitt, one for receive. 
They must be configured and cabled in Link Mode. 


The logical name ‘‘DEVICE’’ must be assigned to the DR11-W to be used. 
For example: ASSIGN XAAO: DEVICE 


Either transmitts or receives a message between two DRil-wW's. Receiver 
checks data pattern for errors. 


integer*2 buf fer(12000), i0sb(10) ,xalink 
integer sys$ass ign, xamessage, sys$waitfr 


HAGA AGAAAAAAAA AGAAAAAHAAAAHAAAAOHOOOHOAAAAOOO 


c 
c set up some initial variables 
c 
c itime - timeout value for request 
c errcnt - total number of errors recorded 
¢ operat - total number of itterations complete 
C pass - print message every 100th leteration 
c 
itime=5 
errcnt=0. 
operat=0. 
pass=0. 


c 
Cc 
Cc 


assign channel to DR11-W 


pyyetseverese tent Sey ite mehanys? 
if(.not. istat)goto 100 


C 
c place xadriver in LINK mode for this channel 
Cc 


istat=xalink (nchan) 
if(.not. istat)goto 150 


c 
¢ prompt for and read buffer size and transfer direction 
Cc 


ifCisize abs: 0 .or. isize .gt. 12000) isize=4000 
format(" enter 1 for receive, 0 for transmit:',$) 


980 

read(5,990) iwhere 
990 format (i1) 
Cc 


0 if(pass .lt. 100.)goto 211 
pass=0. 


C 
c print message every 100th itteration 


C 
write(6,1111)operat.,errcnt 
1111 format ({x,f7.0,' passes completed ',f7.0,' errors reported’) 
c 
c initialize data buffer, depending on transfer direction 
c if receive - zero buffer 
c if transmitt - place known pattern in buffer 
c 
211 goto(15,11) iwhere+1 
c 
c receive - zero buffer 
C 
11 do 45 i=1,isize 
buf fer(i)=0 
45 continue 
goto 80 


c 
c transmitt - place incrementing pattern in buffer 


c 

15 do 77 i=1,isize 
buffer (i)=i 

77 cont inue 


c 
c increment count of total operations and pass number 


80 operat=operat+!. 
pass=pass+1, 


C 
c call xamessage routine to exchange data 
C 
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Sh ye pe ee pee ade isizet2,iwhere,nchan,12,itime, iosb) 
if(.not. istat)goto 206 

istat=sys$waitfr(%val(12)) 

if(.not. istat)goto 300 


check status of request 
ifCiosb(1) .eq. 1 .and. josb(5) .eq. 0) goto 60 
if error, print message, report status 
errcnt=errcnt+l. 
write(6,1000) (iosb( i), i1=1,4),i0sb(5),iosb(7), i0sb(9) ,operat,errcnt 
format (2(1x, 17) ,2(1x,24),301K,17) ,201K,#7.0)5 


if receiver operation, then check buffer 
else, return for next itteration 


Qqoonon0— — aaa 
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ifCiwhere 109: 0)goto 10 
88 i=1,isize 


do a 

if(buffer(i) .ne. idgoto 560 
cont inue 

goto 10 
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write(6,1010)istat 
format(" error from assign ',i8) 


call exit 

write(6,1015)istat 

format("’ error from xalink ',i8) 
call exit 

write(6,1020)istat 

format(" error from xamessage ',i8) 


goto 50 
write(6,1050)istat 
format(" error from waitfr ‘,i8) 


oto 

vrite(6, 1040) i,buffer(i) 

format(" data compare error ‘',2(2x,i4)) 
pote 

en 
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